home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 87 / CDMM87_2.ISO / Incoming Forces / data1.cab / Forces_Files / asc / frontend / frontend.mdl < prev    next >
Encoding:
Text File  |  2001-11-28  |  19.4 KB  |  866 lines
  1. //*******************************************************************
  2. // Frontend.mdl                                                        *
  3. //*******************************************************************
  4.  
  5. menus on // MENUS ON
  6.  
  7. playcdtrack "menus"
  8. clear_flag all
  9. game_flag hud 0
  10. gamemode game lock
  11.  
  12. sfxglobalvolume 1.0
  13.  
  14. //----------------- HERO
  15. //create hero "debris1"
  16. create hero "alien single engined fighter"
  17.  position 10000 above ground 100 7000;100000 5000 7000
  18.  ;task
  19.  ;  setfuel off
  20.  ;end
  21.  
  22. //=============================
  23. //----------- MAIN ------------
  24.  
  25. .start_of_frontend
  26.  
  27. if "s1" not destroyed
  28.  {
  29.    kill "s1"
  30.  }
  31.  
  32. if "s2" not destroyed
  33.  {
  34.    kill "s2"
  35.  }
  36.  
  37. if "fortress_corona_1" not destroyed
  38.  {
  39.    kill "fortress_corona_1"
  40.  }
  41.  
  42. if "core_corona_1" not destroyed
  43.  {
  44.    kill "core_corona_1"
  45.  }
  46.  
  47. if "fantasy_corona_1" not destroyed
  48.  {
  49.    kill "fantasy_corona_1"
  50.  }
  51.  
  52. if "life_corona_1" not destroyed
  53.  {
  54.    kill "life_corona_1"
  55.  }
  56.  
  57. gosub "setup_space"
  58. gosub "setup_station"
  59. gosub "setup_planets"
  60.  
  61. gosub "view_station_closeup"
  62. gosub "first_ships"
  63. gosub "view_radar"
  64. gosub "ships_again"
  65. gosub "show_patrol_p1"
  66. gosub "show_patrol_p2"
  67. gosub "jumpship_from_planet"
  68. gosub "spin_that_station_1"
  69. gosub "spin_that_station_2"
  70. gosub "some_planet_views_1"
  71. gosub "spin_that_station_3"
  72. gosub "spin_that_station_4"
  73. gosub "scene_planet_core"
  74. gosub "scene_planet_fantasy"
  75. gosub "scene_planet_fortress"
  76. gosub "some_planet_views_2"
  77. gosub "some_planet_views_4"
  78.  
  79. kill all
  80.  
  81. jump "start_of_frontend"
  82.  
  83. wait_until flag 31 set
  84. wait_until flag 31 clear
  85.  
  86. menus off
  87. goto_level 601 // 0
  88.  
  89. wait_until flag 31 set
  90. wait_until flag 31 clear
  91.  
  92. //*************************
  93. include "asc\misc\skys.mdl"
  94. //*************************
  95.  
  96. //-------- END of MAIN --------
  97. //=============================
  98.  
  99.  
  100.  
  101. //***********************************************************************
  102. //***********************************************************************
  103. //***********************************************************************
  104. .setup_space
  105.  
  106. setland off
  107. viewdistance 175000 //250000
  108. ;spacedust 1
  109.  
  110. gosub "space_lighting2"
  111.  
  112. createstatic "starsphere"
  113. label "s1"
  114. position 0 0 0
  115. globalise
  116.  
  117. createstatic "nebulasphere"
  118. label "s2"
  119. position 0 0 0
  120. globalise
  121.  
  122. return
  123.  
  124. //***********************************************************************
  125. //***********************************************************************
  126. //***********************************************************************
  127. .setup_station
  128.  
  129. create "SpaceStation"
  130.  position 50000 5000 50000
  131.  label "space_station"
  132.  playanim me 0
  133.  globalise
  134.  task
  135.   .rotate
  136.     ;rotate 0 .01 0 frames 1
  137.     rotate 0 .005 0 frames 1
  138.     jump "rotate"
  139.  end
  140.  
  141. standingorder "space_station" single minded
  142.  
  143. return
  144.  
  145. //***********************************************************************
  146. //***********************************************************************
  147. //***********************************************************************
  148. .setup_planets
  149.  
  150. //------- core
  151. create "core_planet"
  152.  position 10000 0 10000 relative to "space_station"
  153.  label "planet_core"
  154.  no_collision "planet_core"
  155.  task
  156.   .rotate0
  157.     rotate 0 .01 0 frames 1
  158.     jump "rotate0"
  159.  end
  160.  
  161. create "planetcloud"
  162.  position 0 0 0 relative to "previous_object"
  163.  task
  164.    .rotatex0
  165.      rotate 0 .0035 0.0001 frames 1
  166.      jump "rotatex0"
  167.  end
  168.  
  169. createstatic  "core_corona"
  170.  position 0 0 0 relative to "previous_object"
  171.  label "core_corona_1"
  172.  
  173. //------- fantasy---------------------
  174. create "fantasy_planet"
  175.  position -10000 0 10000 relative to "space_station"
  176.  label "planet_fantasy"
  177.  no_collision "planet_fantasy"
  178.  task
  179.   .rotate1
  180.     rotate 0 .01 0 frames 1
  181.     jump "rotate1"
  182.  end
  183.  
  184. create "planetcloud"
  185.  position 0 0 0 relative to "previous_object"
  186.  task
  187.    .rotatex1
  188.      rotate 0 .0035 0.0001 frames 1
  189.      jump "rotatex1"
  190.  end
  191.  
  192. createstatic  "fantasy_corona"
  193.  position 0 0 0 relative to "previous_object"
  194.  label "fantasy_corona_1"
  195.  
  196. //------- fortress------------------------------------------------------
  197. create "fortress_planet"
  198.  position -10000 0 -10000 relative to "space_station"
  199.  label "planet_fortress"
  200.  no_collision "planet_fortress"
  201.  task
  202.   .rotate2
  203.     rotate 0 .01 0 frames 1
  204.     jump "rotate2"
  205.  end
  206.  
  207. create "planetcloud"
  208.  position 0 0 0 relative to "previous_object"
  209.  task
  210.    .rotatex2
  211.      rotate 0 .0035 0.0001 frames 1
  212.      jump "rotatex2"
  213.  end
  214.  
  215. createstatic "fortress_corona"
  216.  position 0 0 0 relative to "previous_object"
  217.  label "fortress_corona_1"
  218.  
  219. //------- life---------------------------------------------------------
  220. create "life_planet"
  221.  position 10000 0 -10000 relative to "space_station"
  222.  label "planet_life"
  223.  no_collision "planet_life"
  224.  task
  225.   .rotate3
  226.     rotate 0 .01 0 frames 1
  227.     jump "rotate3"
  228.  end
  229.  
  230. create "planetcloud"
  231.  position 0 0 0 relative to "previous_object"
  232.  task
  233.    .rotatex3
  234.      rotate 0 .0035 0.0001 frames 1
  235.      jump "rotatex3"
  236.  end
  237.  
  238. createstatic "life_corona"
  239.  position 0 0 0 relative to "previous_object"
  240.  label "life_corona_1"
  241.  
  242. return
  243.  
  244. //***********************************************************************
  245. //***********************************************************************
  246. //***********************************************************************
  247. .view_1_space
  248.  
  249. //ease in n (frames to ease in)
  250. //ease out at n (1-0 dolly point at which to start decelerating)
  251.  
  252. ;setcurrentobject "space_station"
  253. ; position 50000 5000 50000
  254.  
  255. camera set
  256.  position 53091.2 4620 48760
  257.  pointing_at 54091.2 4620 48760.2
  258.  
  259. fade up over 0 frames
  260.  
  261. camera linear
  262.  position 53091.2 4620 48760
  263.  pointing_at 54008.2 4620 49158.8
  264.  dollyspeed 0.002
  265.  panspeed 0.003
  266.  ease in 200
  267.  
  268. pause 120
  269.  
  270. pause 120
  271.  
  272. wait_until pan = 0
  273.  
  274. camera linear
  275.  position 53091.2 4620 48760
  276.  pointing_at 53612.6 4620 49613.4
  277.  dollyspeed 0
  278.  panspeed 0.004
  279.  ease in 90
  280.  
  281. wait_until dolly = 0
  282.  
  283. camera linear
  284.  position 53091.2 4620 48760
  285.  pointing_at 53612.6 4620 49613.4
  286.  dollyspeed 0
  287.  panspeed 0.005
  288.  
  289. wait_until pan = 0
  290.  
  291. camera linear
  292.  position 53568.3 4300 48448.6
  293.  pointing_at 52656.1 4270.01 48857
  294.  dollyspeed 0.004
  295.  panspeed 0.004
  296.  ease out at 0.3
  297.  
  298. wait_until pan = 0
  299. wait_until dolly = 0
  300.  
  301. return
  302.  
  303. //***********************************************************************
  304. //***********************************************************************
  305. //***********************************************************************
  306. .view_station_closeup
  307.  
  308. setcurrentobject "space_station"
  309.  position 50000 5000 50000
  310.  
  311. camera set
  312.  position 50647.3 4448.58 49712.4
  313.  pointing_at 49734.6 4448.28 50121
  314.  
  315. fade up over 1 frames
  316.  
  317. camera linear
  318.  position 51213.3 3648.77 49458.9
  319.  pointing_at 50300.6 3648.47 49867.6
  320.  dollyspeed 0.002
  321. ; ease in 30
  322.  ease out at 0.2
  323.  panspeed 0.003
  324.  ease in 30
  325.  ease out at 0.2
  326.  
  327. wait_until pan = 0
  328. wait_until dolly = 0
  329.  
  330. camera linear
  331.  position 50669.8 11100 49308 
  332.  pointing_at "space_station"
  333.  dollyspeed 0.001
  334.  ease in 30
  335.  ease out at 0.2
  336.  panspeed 0.0025
  337.  ease in 30
  338.  ease out at 0.2
  339. ; ease in 120
  340. ; ease out at 0.3
  341.  
  342. ;wait_until pan = 0
  343. ;wait_until dolly = 0
  344.  
  345. pause 550
  346.  
  347. return
  348.  
  349. //***********************************************************************
  350. //***********************************************************************
  351. //***********************************************************************
  352. .first_ships
  353.  
  354. camera set
  355.  position 62806.8 5410.62 57538.8
  356.  pointing_at 61893.7 5300 57943.2 ;5462.57
  357.  
  358. pause 80
  359.  
  360. camera
  361.  position 62806.8 5410.62 57538.8
  362.  pointing_at "space_station"
  363.  dollyspeed 0.003
  364.  ease in 30     
  365.  ease out at 0.2
  366.  panspeed 0.0001
  367.  ease in 30     
  368.  ease out at 0.2
  369.  
  370. pause 360
  371.  
  372. return
  373.  
  374. //***********************************************************************
  375. //***********************************************************************
  376. //***********************************************************************
  377. .view_radar
  378.  
  379. camera set
  380.  position -1800 500 -1300 local to "space_station"."strategic scanner"
  381.  pointing_at "space_station"."strategic scanner"
  382.  
  383. camera linear
  384.  position 1100 -100 -1100 local to "space_station"."strategic scanner"
  385.  pointing_at "space_station"."strategic scanner"
  386.  dollyspeed 0.002
  387.  ease in 30     
  388.  ease out at 0.2
  389.  panspeed 0.005
  390.  ease in 30     
  391.  ease out at 0.2
  392.  
  393. wait_until dolly = 0
  394. wait_until pan = 0
  395.  
  396. return
  397.  
  398. //***********************************************************************
  399. //***********************************************************************
  400. //***********************************************************************
  401. .ships_again
  402.  
  403. setcurrentobject "space_station"
  404.  position 50000 5000 50000
  405.  
  406. camera set
  407. position 50370.8 6394.19 61087.6
  408. pointing_at 50257.1 5870.54 60243.3
  409.  
  410. camera linear
  411.  position 50370.8 6394.19 61087.6 pointing_at 50248.4 6382.92 60095.2
  412.  dollyspeed 0.001
  413.  ease in 30     
  414.  ease out at 0.2
  415.  panspeed 0.003
  416.  ease in 30     
  417.  ease out at 0.2
  418.  
  419. pause 390
  420.  
  421. return
  422.  
  423. //***********************************************************************
  424. //***********************************************************************
  425. //***********************************************************************
  426. //***********************************************************************
  427. //***********************************************************************
  428. //***********************************************************************
  429. .show_patrol_p1
  430.  
  431. camera set
  432. position 49264.7 5117.02 47431.2
  433. pointing_at 50123.4 5049.48 46923.1
  434.  
  435. pause 60
  436. camera
  437. position 49264.7 5617.02 55431.2
  438. pointing_at "space_station"."strategic scanner"
  439. dollyspeed 0.00001
  440. ease in 30     
  441. ease out at 0.2
  442. panspeed 0.00005
  443. ease in 30     
  444. ease out at 0.2
  445.  
  446. pause 400
  447.  
  448. camera
  449. position 1000 1000 1000 local to "space_station"."strategic scanner";49279.3 4547.86 49836.9
  450. pointing_at "space_station"."strategic scanner"
  451. dollyspeed 0.00001
  452. ease in 30     
  453. ease out at 0.2
  454. panspeed 0.00005
  455. ease in 30     
  456. ease out at 0.2
  457.  
  458. pause 400
  459.  
  460. camera
  461. position 48161.7 4720.4 50035
  462. pointing_at 49055.8 4764.7 50480.5
  463.  
  464. pause 100
  465.  
  466. return
  467.  
  468. //***********************************************************************
  469. //***********************************************************************
  470. //***********************************************************************
  471. .show_patrol_p2
  472.  
  473. setcurrentobject "space_station"
  474.  position 50000 5000 50000
  475.  
  476. camera set
  477. position 50307.8 5077.47 49555.9
  478. pointing_at 1000 800 1000 relative to "space_station"
  479.  
  480. pause 400
  481.  
  482. return
  483.  
  484. //***********************************************************************
  485. //***********************************************************************
  486. //***********************************************************************
  487. .some_planet_views_1
  488.  
  489. camera set
  490. position 37292.2 5876.05 35080.5 pointing_at 37807.1 5914.97 35936.9
  491. fade up over 8 frames
  492.  
  493. camera linear
  494. position 36215.8 6164.4 36808
  495. pointing_at "planet_life"
  496. dollyspeed 0.002
  497.  ease in 30     
  498.  ease out at 0.2
  499. panspeed 0.004
  500.  ease in 30     
  501.  ease out at 0.2
  502.  
  503. wait_until dolly = 0
  504.  
  505. camera linear
  506. position 36165.9 8027.29 38122.5;36275.9 7392.68 37872.8
  507. pointing_at "space_station"
  508. dollyspeed 0.002
  509.  ease in 30     
  510.  ease out at 0.2
  511. panspeed 0.004
  512.  ease in 30     
  513.  ease out at 0.2
  514.  
  515. wait_until dolly = 0
  516. wait_until pan = 0
  517.  
  518. return
  519.  
  520. //***********************************************************************
  521. //***********************************************************************
  522. //***********************************************************************
  523. .some_planet_views_2
  524.  
  525. camera set
  526.  position 37877.9 4982.3 68267.5
  527.  pointing_at 38320.3 4982.66 67370.7
  528.  
  529. camera linear
  530.  position 40132.5 5202.78 67942.4
  531.  pointing_at 0 150 -300 local to "planet_fantasy"
  532.  dollyspeed 0.001
  533.  ease in 30     
  534.  ease out at 0.2
  535.  panspeed 0.002
  536.  ease in 30     
  537.  ease out at 0.2
  538.  
  539. wait_until dolly = 0
  540. wait_until pan = 0
  541.  
  542. return
  543.  
  544. //***********************************************************************
  545. //***********************************************************************
  546. //***********************************************************************
  547. .jumpship_from_planet
  548.  
  549. camera set
  550. position 34756.9 4186.91 60198.3
  551. pointing_at 35727.7 4152.07 60435.4
  552.  
  553. camera linear
  554. position 35984.7 5840.67 56342.1
  555. pointing_at 36955.6 5805.83 56579.2
  556. dollyspeed 0.001
  557.  ease in 30     
  558.  ease out at 0.2
  559. panspeed 0
  560.  ease in 30     
  561.  ease out at 0.2
  562.  
  563. wait_until dolly = 0
  564.  
  565. ;create "mini_me"
  566. ; position 38685.4 5191.25 58360.4;38378.9 5587.18 58952.6 
  567. ; pointing_at 36786.2 5898.2 56673.2
  568. ; label "mini"
  569. ; no_collision "current_object"
  570. ; task
  571. ;  goto 36190.4 5803.67 56351.1 at 10% within 100 no_avoidance no_slow    
  572. ;  goto 33757.9 5700.35 51474.8 at 10% within 1000 no_avoidance no_slow    
  573. ;  set_flag 13
  574. ; end
  575. ;
  576. ;wait_until flag 13 set
  577.  
  578. pause 200
  579.  
  580. return
  581.  
  582. //***********************************************************************
  583. //***********************************************************************
  584. //***********************************************************************
  585. .some_planet_views_4
  586.  
  587. camera
  588.  position 200 700 2300 relative to "space_station"
  589.  pointing_at "planet_life"
  590.  pause 1
  591.  
  592. camera linear
  593.  position -2800 500 -1800 relative to "planet_life"
  594.  pointing_at "planet_life"
  595.  dollyspeed 0.0005
  596.  ease in 30     
  597.  ease out at 0.2
  598.  panspeed 0.001
  599.  ease in 30     
  600.  ease out at 0.2
  601.  
  602. pause 350
  603.  
  604. return
  605.  
  606. //***********************************************************************
  607. //***********************************************************************
  608. //***********************************************************************
  609. .scene_planet_core
  610.  
  611. camera set
  612. position 45963 7422.09 42693.7
  613. pointing_at 46480.8 7303.84 43541.1 
  614.  
  615. camera linear
  616.  position 8000 500 0 relative to "planet_core"
  617.  pointing_at "planet_core"
  618.  dollyspeed 0.001
  619.  ease in 30     
  620.  ease out at 0.2
  621.  panspeed 0.001
  622.  ease in 30     
  623.  ease out at 0.2
  624.  
  625. wait_until dolly = 0
  626.  
  627. return
  628.  
  629. //***********************************************************************
  630. //***********************************************************************
  631. //***********************************************************************
  632. .scene_planet_fantasy
  633.  
  634. camera set
  635. position 33388.1 7848.05 46127.5
  636. pointing_at 33673.6 7729.94 47078.5
  637.  
  638. pause 1
  639.  
  640. camera linear
  641.  position -4000 1500 4000 relative to "planet_fantasy"
  642.  pointing_at 0 0 2000 relative to "planet_fantasy"
  643.  dollyspeed 0.001
  644.  ease in 30     
  645.  ease out at 0.2
  646.  panspeed 0.001
  647.  ease in 30     
  648.  ease out at 0.2
  649.  
  650. wait_until dolly = 0
  651.  
  652. return
  653.  
  654. //***********************************************************************
  655. //***********************************************************************
  656. //***********************************************************************
  657. .scene_planet_fortress
  658.  
  659. camera set
  660. position 30830.1 5900.24 32404.5
  661. pointing_at 31509.8 5901.55 33138
  662.  
  663. camera linear
  664.  position 35071 5227.36 35892.3
  665.  pointing_at 35750.7 5228.67 36625.8
  666.  dollyspeed 0.002
  667.  ease in 30     
  668.  ease out at 0.2
  669.  panspeed 0.001
  670.  ease in 30     
  671.  ease out at 0.2
  672.  ;ease in 120
  673.  
  674. wait_until dolly = 0
  675.  
  676. camera linear
  677.  position 32736.3 6048.45 38987.3
  678.  pointing_at 51019.2 6123.7 49244.3
  679.  dollyspeed 0.001
  680.  ease in 30     
  681.  ease out at 0.2
  682.  panspeed 0.001
  683.  ease in 30     
  684.  ease out at 0.2
  685.  
  686. wait_until dolly = 0
  687.  
  688. return 
  689.  
  690. //***********************************************************************
  691. //***********************************************************************
  692. //***********************************************************************
  693. .spin_that_station_1
  694.  
  695. camera set
  696. position 50754 18176.6 59515.6
  697. pointing_at 50846.9 17395.1 58898.7
  698.  
  699. camera linear
  700. position 51257.8 4974.72 51142.3
  701. pointing_at 51111.2 4753.43 50178.2
  702. dollyspeed 0.001
  703.  ease in 30     
  704.  ease out at 0.2
  705. panspeed 0.001
  706.  ease in 30     
  707.  ease out at 0.2
  708.  
  709. wait_until dolly = 0
  710.  
  711. camera linear
  712. position 52354 7118.44 43534.5
  713. pointing_at 42882.8 4880.84 57624.9
  714. dollyspeed 0.002
  715.  ease in 30     
  716.  ease out at 0.2
  717. panspeed 0.003
  718.  ease in 30     
  719.  ease out at 0.2
  720.  
  721. wait_until dolly = 0
  722.  
  723. return 
  724.  
  725. //***********************************************************************
  726. //***********************************************************************
  727. //***********************************************************************
  728. .spin_that_station_2
  729.  
  730. camera set
  731. position 57089.7 7028.35 46310.6
  732. pointing_at 40075.6 6953.53 56689.1
  733.  
  734. camera linear
  735. position 51986.5 7005.7 49393.7
  736. pointing_at 40075.6 6953.53 56689.1
  737. dollyspeed 0.004
  738.  ease in 30     
  739.  ease out at 0.2
  740. panspeed 1
  741.  ease in 30     
  742.  ease out at 0.2
  743.  
  744. wait_until dolly = 0
  745.  
  746. camera linear
  747. position 50788.9 7064.84 47876
  748. pointing_at 40075.6 6953.53 56689.1
  749. dollyspeed 0.005
  750.  ease in 30     
  751.  ease out at 0.2
  752. panspeed 0.01
  753.  ease in 30     
  754.  ease out at 0.2
  755.  
  756. wait_until dolly = 0
  757.  
  758. camera linear
  759. position 49900.4 5741.36 49189.9
  760. pointing_at 40075.6 6953.53 56689.1
  761. dollyspeed 0.004
  762.  ease in 30     
  763.  ease out at 0.2
  764. panspeed 0.01
  765.  ease in 30     
  766.  ease out at 0.2
  767.  
  768. wait_until dolly = 0
  769. pause 200
  770.  
  771. camera linear
  772. position 56783.8 4853.12 42584
  773. pointing_at 40075.6 6953.53 56689.1
  774. dollyspeed 0.003
  775.  ease in 30     
  776.  ease out at 0.2
  777. panspeed 0.01
  778.  ease in 30     
  779.  ease out at 0.2
  780.  
  781. wait_until dolly = 0
  782.  
  783. return 
  784.  
  785. //***********************************************************************
  786. //***********************************************************************
  787. //***********************************************************************
  788. .spin_that_station_3
  789.  
  790. camera set
  791. position 51544.2 7002.69 49790.1
  792. pointing_at 48200.1 3897.99 47410.4
  793.  
  794. camera linear
  795. position 50415.6 6170.17 49477.7
  796. pointing_at 48200.1 3897.99 47410.4
  797. dollyspeed 0.0004
  798.  ease in 30     
  799.  ease out at 0.2
  800. panspeed 1
  801.  ease in 30     
  802.  ease out at 0.2
  803.  
  804. pause 400
  805.  
  806. return 
  807.  
  808. //***********************************************************************
  809. //***********************************************************************
  810. //***********************************************************************
  811. .spin_that_station_4
  812.  
  813. ;setcurrentobject "space_station"
  814. ; position 50000 5000 50000
  815.  
  816. camera set
  817. position 39658.6 872.477 47786.2
  818. pointing_at 49557.1 6133.09 50472.9 
  819.  
  820. camera linear
  821. position 48341.5 5471.5 50070.5
  822. pointing_at 49557.1 6133.09 50472.9 
  823. dollyspeed 0.001
  824.  ease in 30     
  825.  ease out at 0.2
  826. panspeed 1
  827.  ease in 30     
  828.  ease out at 0.2
  829.  
  830. wait_until dolly = 0
  831.  
  832. camera linear
  833. position 48795.3 3583.72 51964.6
  834. pointing_at 49557.1 6133.09 50472.9 
  835. dollyspeed 0.001
  836.  ease in 30     
  837.  ease out at 0.2
  838. panspeed 1
  839.  ease in 30     
  840.  ease out at 0.2
  841.  
  842. wait_until dolly = 0
  843. pause 120
  844.  
  845. return 
  846.  
  847. //***********************************************************************
  848. //***********************************************************************
  849. //***********************************************************************
  850. //***********************************************************************
  851. //***********************************************************************
  852. //***********************************************************************
  853. //***********************************************************************
  854. //***********************************************************************
  855. //***********************************************************************
  856.  
  857. wait_until flag 31 set
  858. wait_until flag 31 clear
  859.  
  860. //********************************************************
  861. //********************************************************
  862. //********************************************************
  863.  
  864. end
  865.  
  866.